home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / INTRO.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  4.2 KB  |  223 lines
  1. :intro.scr
  2.  
  3. memory 1 = 1
  4.  
  5. cursor 0 15
  6. print 'This keyboard is what you will be looking at while you are learning to type.
  7. cursor 2 17
  8. print 'There is no need to look where your fingers are, in fact it is bad practice.
  9. cursor 0 18
  10. print 'Once you can feel where your fingers are on the keyboard, it becomes easier for
  11. cursor 0 19
  12. print 'you to copy text that you are reading. Dont worry, it will become natural before
  13. cursor 0 20
  14. print 'you realise.
  15. cursor 0 22
  16. print 'Try placing your right thumb over the SPACE BAR and keep it there.
  17. cursor 0 24
  18. hkey ' 
  19. print 'When you are ready press the SPACE BAR.
  20. :wait_for_space1
  21. wait -
  22. if key ! 32 goto wait_for_space1
  23. bkey ' 
  24.  
  25. clear 15
  26. cursor 0 15
  27. print '  If you give yourself, say an hour a day, or possibly one hour in the morning
  28. cursor 0 16
  29. print 'and one in the afternoon to PcKey, in six weeks time you will be able to touch
  30. cursor 0 17
  31. print 'type. After that you will improve your speed and accuracy, by continuing to
  32. cursor 0 18
  33. print 'practice with PcKey.
  34. cursor 2 20
  35. print 'There is an editor facility in PcKey that you could practice with. Its crude
  36. cursor 0 21
  37. print 'by todays standards, but its suitable for simple text files and notes. If you
  38. cursor 0 22
  39. print 'are adventurous, you can even create your own tests to practice with.
  40. cursor 0 24
  41. hkey ' 
  42. print 'When you are ready press the SPACE BAR.
  43.  
  44. :wait_for_space2
  45. wait -
  46. if key ! 32 goto wait_for_space2
  47.  
  48. bkey ' 
  49.  
  50. clear 15
  51. cursor 0 15
  52. print '  So... Lets get started.
  53. cursor 0 17
  54. print '  When you are typing you use your four fingers in both hands plus your right
  55. cursor 0 18
  56. print 'thumb. Your fingers rest on the keys 
  57. fkey a
  58. print 'A 
  59. fkey s
  60. print 'S 
  61. fkey d
  62. print 'D 
  63. hkey f
  64. print 'F  and  
  65. hkey j
  66. print 'J 
  67. fkey k
  68. print 'K 
  69. fkey l
  70. print 'L 
  71. fkey ;
  72. print ';. Your thumb rests
  73. cursor 0 19
  74. print 'over the SPACE BAR.
  75. cursor 2 20
  76. print 'Your fingers should be arranged so that the left index finger is over the F
  77. cursor 0 21
  78. print 'key, and your right index finger is over the J key.
  79. cursor 2 23
  80. print 'Try pressing any of these keys, trying not to look at your fingers but at the
  81. cursor 0 24
  82. print 'keyboard displayed above. When you are ready to go on press the SPACE BAR.
  83.  
  84. wait -
  85.  
  86. fkey f
  87. fkey j
  88. fkey d
  89. fkey k
  90. fkey s
  91. fkey l
  92. fkey a
  93. fkey ;
  94.  
  95. :fjp
  96. bkey G
  97. bkey H
  98. if key ! F if key ! f goto not_f
  99. hkey
  100. wait -
  101. fkey F
  102. goto fjp
  103. :not_f
  104. if key ! J if key ! j goto not_j
  105. hkey
  106. wait -
  107. fkey J
  108. goto fjp
  109. :not_j
  110. if key ! D if key ! d goto not_d
  111. hkey
  112. wait -
  113. fkey D
  114. goto fjp
  115. :not_d
  116. if key ! K if key ! k goto not_k
  117. hkey
  118. wait -
  119. fkey K
  120. goto fjp
  121. :not_k
  122. if key ! S if key ! s goto not_s
  123. hkey
  124. wait -
  125. fkey S
  126. goto fjp
  127. :not_s
  128. if key ! L if key ! l goto not_l
  129. hkey
  130. wait -
  131. fkey L
  132. goto fjp
  133. :not_l
  134. if key ! A if key ! a goto not_a
  135. hkey
  136. wait -
  137. fkey A
  138. goto fjp
  139. :not_a
  140. if key ! ; if key ! : goto not_;
  141. hkey
  142. wait -
  143. fkey :
  144. goto fjp
  145. :not_;
  146.  
  147. if key = 32 goto efjp
  148. :wfjp
  149. wait -
  150. goto fjp
  151.  
  152. :efjp
  153.  
  154. bkey f
  155. bkey j
  156. bkey d
  157. bkey k
  158. bkey s
  159. bkey l
  160. bkey a
  161. bkey ;
  162.  
  163. clear 15
  164. cursor 0 15
  165. print 'Good. Now we are ready to do a test.
  166. cursor 22 17
  167. print 'ffffffffjjjjjjjjffffjjjjffjjfjfj
  168. cursor 0 21
  169. print '  The line above consists of the letters 'f' and 'j'. Your index fingers should
  170. cursor 0 22
  171. print 'be resting on them. The two arrows you see at the start of the line, indicate
  172. cursor 0 23
  173. print 'what key I want you to press. So in your own time, try typing these keys.
  174. cursor 22 17
  175. start 1
  176. test
  177.  
  178. :ta
  179. clear 21
  180. cursor 2 21
  181. print 'Good. You succeeded in finishing your first test.
  182. cursor 0 23
  183. print 'You made 
  184. mistakes 1
  185. print ' mistake
  186. if mistakes 1 ! 1 print 's
  187. print ' out of 32.
  188. cursor 0 24
  189.  
  190. if mistakes 1 > 0 goto mg0
  191. print 'Which is excellent, well done. Press the SPACE BAR to go on.
  192. :wait_for_space4
  193. wait -
  194. if key ! 32 goto wait_for_space4
  195. goto exit
  196. :mg0
  197.  
  198. if mistakes 1 > 3 goto mg3
  199. print 'Which is very good, but
  200. goto if0e
  201. :mg3
  202.  
  203. if mistakes 1 > 6 goto mg6
  204. print 'Which is not bad, but
  205. goto if0e
  206. :mg6
  207.  
  208. print 'Which is not so good. Try
  209. goto if0e2
  210. :if0e
  211. print ' I think you should try
  212. :if0e2
  213. print ' the test again.
  214.  
  215. clear 18 19
  216. cursor 22 17
  217. start 1
  218. test
  219. goto ta
  220.  
  221. :exit
  222.  
  223.